Option Explicit
Sub D_Sample009()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim i      As Long
    Cells.Clear
    Range("A1").Value = 1				'w
    Range("A2").Value = 2
    Range("A3").Value = 3
    Range("A4").Value = 4
    Set myRng1 = Range("A1:A4")		'BؼЪxsd
    Range("B1").Value = 5 				'w
    Set myRng2 = Range("B1")			'wB
    'ǳƨ즹
    myRng2.Copy
    myRng1.PasteSpecial Operation:=xlPasteSpecialOperationMultiply'ۭB
    Application.CutCopyMode = False
    Set myRng1 = Nothing				'
    Set myRng2 = Nothing
End Sub
